home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1986 March
/
64er_Magazin_86-03_1986_Markt__Technik_de.d64
/
shape 64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
30 lines
100 rem shape 64 von r. loewenstein
101 rem zeisigweg 42
102 rem 8301 oberahrain
103 rem tel:08703/2088
104 :
120 poke53270,4:x=49152:fora=0to368:readb:pokex+a,b:c=c+b:next
125 ifc<>43521thensys58784:print"fehler in datas!":end
130 sys58784:sys49391:print"[147] **** c-64 shape system v1.0 ****"
140 print" 64k ram system 40130 basic bytes free"
150 new
32000 data32,253,174,32,235,183,134,4,165,20,166,21,133,2,134,3,32,253,174,32
32001 data235,183,165,20,133,5,138,240,32,201,1,240,14,162,7,189,89,192,157,146
32002 data192,202,16,247,76,113,192,162,7,189,97,192,157,146,192,202,16,247,76
32003 data113,192,32,253,174,32,235,183,142,110,192,165,20,141,106,192,162,7
32004 data189,105,192,157,146,192,202,16,247,76,113,192,177,2,145,6,177,8,145
32005 data10,177,6,145,2,177,10,145,8,169,255,145,2,169,0,145,8,169,54,133,1
32006 data169,0,162,160,133,6,134,7,162,176,133,10,134,11,166,2,165,3,24,105
32007 data20,133,9,134,8,166,5,160,0,169,255,145,2,169,0,145,8,200,196,4,144
32008 data243,165,6,24,101,4,133,6,133,10,144,4,230,7,230,11,165,2,24,105,40
32009 data133,2,133,8,144,4,230,3,230,9,202,208,208,169,55,133,1,96,234,169,51
32010 data133,1,169,0,162,200,160,208,133,2,134,3,133,4,132,5,162,8,168,177,4
32011 data145,2,136,208,249,230,3,230,5,202,208,242,169,55,133,1,88,96,120,169
32012 data208,141,207,192,32,197,192,169,0,141,0,221,169,18,141,24,208,169,196
32013 data141,136,2,169,50,162,193,141,20,3,142,21,3,169,0,141,32,208,141,33
32014 data208,169,14,141,134,2,169,60,162,3,133,43,134,44,169,0,141,60,3,169
32015 data8,32,210,255,88,96,173,141,2,201,3,208,24,169,18,141,141,2,141,142
32016 data2,230,255,165,255,41,1,208,11,169,216,141,207,192,32,197,192,76,49
32017 data234,169,208,141,207,192,32,197,192,76,49,234,120,169,208,141,207,192
32018 data76,198,192,120,169,216,141,207,192,76,198,192